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LLL Ill BSB BB RRR RRR TTT LLL Ll 
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oTRTLS OISEnOve - Move characters 
-IDENT /1-005/ ; File: OTSMOVE.MAR Edit: S$8L1005 


s enasenseeoononeredoccousrneoeenooesnennneeonenqeseneoeeoeeeeoenceeeeeneonte 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
:® we 
*® a 
*® i 
:@ a 
:* ca 
is THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ts INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR \ANY. OTHER 
i COPIES THEREOF MAY NOT GE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
;® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s® TRANSFERRED, * 
:® t 
*® * 
*® ae 
** * 
*® * 
*® * 
*® ® 
:® e 
*® ae 
® ® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMEN™ WHICH IS NOT SUPPLIED BY DIGITAL. 


; LARA RAAASAAAAALLLALASLELASALELASELELALEES EERE REEL ERE EERE RARER SER ERS RR RRR RAE 
“FACILITY: Language-independent Compiled Code Support 
ABSTRACT: 


This module contains a procedure which moves up to 2**31-1 
characters. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 14-SEP-1981 
MODIFIED BY: 
01 - Original. SBL fg 1 

- Code oSBROVES. and of m c-1981 

- Add 0 ap E5 and org _R5 entry points 


- Fix problem with just Na tLine of >65K bytes. SBL 27~July-1982 
005 - Fix register-saving bug with> backwards copy. SBL 17-May-1983 


OoOoooo°oo 
COOoooooooooooooa 


CSGoOoOoooCooooooooooooo 
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CNAME WN HO OO NAME WN O ODNA UNE WN OO ODNAUE UW QWODNAUSE 


PRR PRESSE PWM nononononononononony 2 2 


oe 

1- 
1- 
1- 
{- 


ss 
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C 16 
er "SSEb=198e 99:78:07 EMgnte. Seedorsno 
; -SBTTL DECLARATIONS 
¢ LIBRARY MACRO CALLS: 
; NONE 
: EXTERNAL DECLARATIONS: 
: NONE 
; MACROS: 


: EQUATED SYMBOLS: 
: NONE 
; OWN STORAGE: 
: NONE 
; PSECT DECLARATIONS: 


-PSECT _OTSSCODE PIC, USR, CON, yo LCL, SHR, 
EXE, RD, NOWRT, LONG 


; NONE 


v04- i 


E.MAR;1 


teed * 
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= Move characters 1 
OT Seneve - Move characters without fill 
Ne -SBTTL OTSSMOVES - Move characters without fill 
: FUNCTIONAL DESCRIPTION: 


6-SEP~1984 00:32:51 YAX/VMS Mac 


, ° 
SEP-1986 Srtpove’ oe, 


ro V04 
LIBRTL.SRCJOTSMOVE .MAR; 1 


This procedure moves up to 2**31-1 characters from a specified 
source address to a specified destination address. Overlapping 
fields are handled correctly. 

CALLING SEQUENCE: 


CALL OTSSMOVES (Length.rl.v, source.rbu.ra, dest.wbu.ra) 


4 
oY FORMAL PARAMETERS: 
9 
00000004 3 $8 length = 4 3; Number of bytes to move, passed by 
0 4 ; immediate sive Value may range from 
009 95 : 0 through 2147483647. 
00000008 4 $7 source = 8 ; Characters to move, passed by reference. 
0000000C 00 . oo dest = 12 ; Area to receive moved characters, passed 
0 100 3; by reference. 
$318 
00 108 3 IMPLICIT INPUTS: 
4 104 ; 
105 ; NONE 
00 1 § 3 
800 1 3; IMPLICIT OUTPUTS: 
00 108 ; 
rs 109 ; NONE 
000 110; 
000 111 ; FUNCTION VALUE: 
8606 16 3 
0 113 ; NONE 
00 114 ; 
0 115 ; SIDE EFFECTS: 
00 118 3 
0 117 ; NONE 
133 $ 
9 120° 
003C¢ ' 1 ENTRY OTSSMOVES, “M<R2,R3,R4,R5> 
50 O04 AC 7 1 5 MmOva Length(AP), RO : Get Length and source address 
52 OC AC OD 6 126 MOVL des Re : Get destination address 
oi 1 OA 125 BSBB 4s OTSSMOVES_R : Do the move 
OC 126 RET ; Return to caller 


E 16 
‘> howe characters without f aed et 90:38:34 PTBRTL. SREIOTSMOVE MAR: 1 a 


| -SBTTL OTSSMOVE3_RS = Move characters without fill 


505 “* 


++ 

FUNCTIONAL DESCRIPTION: 
This procedure moves up to 2**31-1 characters from a specified 
source address to a specified destination address. Overlapping 
fields are handled correctly. 

CALLING SEQUENCE: 
JSB OTSSMOVE3_RS (Length.ri.v, source.rbu.ra, dest.wbu.ra) 


FORMAL PARAMETERS: 


length = RO 3; Number of bytes to nove: Value may range 
; from 0 through 2147483647. 
source = R1 ; Address of characters to move. 
dest = R2 ; Address of area to receive moved characters. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


RO = 0 

4 = Address of one byte beyond the source string. 
= 

aT = Address of one byte beyond the destination string. 
= 


WN O OONA UNE WN O OONAUE WN OOONOAUES 


te et a a 8 4 ss 4 4 od 3) a a a a a = = a 0 a 1 a ss 1 a a a 


Win wm 


R5 = 
FUNCTION VALUE: 
NONE 
8 SIDE EFFECTS: 
9 NONE 
: OTSSMOVE3_RS:: 
OOOOFFFF 8F 50 § CMPL RO, #65535 ; Is length greater than 65535? 
5 BGTR BIGSTRING : If so, can’t do simple move. 
62 61 0 3 moves RO, (R1), (R2) : Simple case; do the move 
° BIGSTRING: 
3 3) CMPL R1, R2 ; Check for overlap that would prevent 
48 BGEGY FORWARDS : a forward copy . 
a Ra. s SUBL R1, R2, R3 ; Get distance between start points 


3 
6 FFFFOOO1 


Sooooo 
AAW & 
@Orn"7a ym 


SoaSaa> 


PRIPQPD _— POPIPYPIPOPYPYNINIPYININININPYINPINONY — PONINOPIN 2 I OO OO 


SII S 
NMOAAOO 


oO 
NS 


SSsssooooooSooooess 


0 


So 
& 
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9 


9 


0 
0 
0 
" 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 


Fun _  OQVUONOME WIN OOOnNOU f£WwhO 


BACKWARDS: 
ADOL 


CMPL =e RB, RO 
BGEGU FORWARDS 


MOVCS #65535 
6333 
ACBL #655 


#n< 


FORWARDS: 


RO 


. » R2, R3 
PUSHR  #°M<RO,R1,R3> 


5(r3 
SUBL2 #65535, R1 
SUBL #65335. R3 

6, #-65535, (SP), 
(sP)s RO 
MOVCS RO, (R1DER2I, (R3)CR2I 
P R1,R3> 


R2, R 
Rees he, (R1), (R3) 


STIS SRSE:E) NOE See tat 


LIBRTL.SRCJOTSMOVE .MAR; 1 
nd compare it to string size. 
dj p 9 


5@ 
; Come here if we have to do the copy from right to left because of 
3; overlap. 


; R3 points past end of dest 
; R1 points past end of source 


; Save Length remaining, drc and dest end 


16s 


; Move des 


Move a segment 
R1 and R35 get set by the MOVC3 


to point past the source and dest. 


Get new source address 
Get new dest eddress 
; Loop until <65536 bytes left 


Get length remaining in RO 
Get -length in R2 
Do the final move 


Set R1 and R3 to proper end values 


s® 
; Come here if it's ok to do the copy from left to right. 


Save a remaining 
address to R3 
Move a segment. R1 and R3 get 


; updated with new source and dest 


: addresses. 
ACBL #65536, #-65535, (SP), 10$ ; Repeat until <65536 bytes left 


MOVL. (SP)+, RO 
MOVC3 RO, (R1), (R3) 


Get final length 
Do the final move 


; Return 


stance larger than string size, 


92805 
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-SBTTL OTSSMOVES - Move characters with fill 

FUNCTIONAL DESCRIPTION: 
This procedure moves up to 2**31-1 characters from a specified 
source address to a specified Cost ination ddress, with separate 
source and destination lengths, and with fill. Overlapping 
fields are handled correctly. 

CALLING SEQUENCE: 


CALL OTSSMOVES (srclen.rl.v. source.rbu.ra, fill.rbu.v, 
dstlen.rl.v, dest.wbu.ra) 


FORMAL PARAMETERS: 


Sete Se Ge Se Ge Ge Ge Se Se Ge Se Ge Se Se 
> 


srclen = 4 ; Number of bytes in the source, passed by 
3; immediate yatue Value may range from 
: 0 through 2147483647. 


source = 8 ; Characters to move, passed by reference. 


fill = 12 ; Fill byte to use when the srclen is less than 
3; dstlen. Passed by immediate value. 


dstlen 16 3; Number of bytes in the destination, passed by 


: immediate value. Value may range from 
: O through 2147483647. 
dest = 20 ; Area to receive moved characters, passed 
; by reference. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


MEAN O ODNAUN EWN 0 OONAUE WN 0 ODNAU LS WHO OOO 
. 


Se Se Se Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Sete Ge Se 


MPWwn— 


sENTRY OTSSMOVES, “M<R2,R3,R4,R5> 


2 PN RW Ae Oe RA ee te ee ae TR Set A A 
NO Ooo 


9 MOVa srclen(AP), RO ; Get source length and address 
mMOVO = FALLCAP), R2 : Get fill and destination length 
2 MOVL dest(AP), R4& 3 Get destination address 


8) 


eal SiEADVED SASSY characters wien rut ECRBCISRE ATSRBD UMGREE.HESBIREEP% me. Gy 


"me mm roms 8 tetas 


TS haracters 
qos OTS MOVES-R - Move characters with fill 6-SEP-1 
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; -SBTTL OTSSMOVES_RS - Move characters with fill 

FUNCTIONAL DESCRIPTION: 
This procedure moves up to 2**31-1 characters from a spect fied 
source address | a specified destination address, with separate 
source and destination lengths, and with fill. Overlapping 
fields are handled correctly. 

CALLING SEQUENCE: 


JSB OTSSMOVES_RS (srclen. rt. v, source.rbu.ra, fill.rbu.v, 
dstlen.rl.v, dest.wbu.ra) 


FORMAL PARAMETERS: 


srclen = RO 3; Number of tae in be source 
; Value m may £9 nge {ros 
3 °° through 2147483647. 
source = R1 ; Address of characters to move 
fill = R2 3 Ab By byte to use when the srclen is less than 
dstlen = 83 $ poner § of bytes in the destination. 
: 0 "aisenal ore seaseee. 
dest = R4 ; Address of area to receive moved characters. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


RO = Number of unmoved bytes remaining in source string. 
Address of one byte beyond the source string. 


Address of one byte beyond the destination string. 


FUNCTION VALUE: 
NONE 
SIDE EFFECTS: 


—O VIO 
MOO PUTNAM SPOUIIM DO OOOO SVS SMO POOOu 
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oon ymmrN ete 4 
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NEED_FILL: 


SSNS SSS SD DAD APA AAD TTI BB 


MO 
MO 
8 
10$: MOVL 
78 208: mOovVCS 
79 
si 30S: 
; ral?) 
RS 
4 
85 - END 


MEW O ODNAUNE WIN O OO NOAUE WN OWONAUILEW 
@ 
an” 
ao 
< 


J 16 


OTSEMOVES RE Move characters with fill 'S- 


BO, 065555 
RS #65535 


B15 cat, R2, R3, (R4) 


RO, R3 
NEED FIL 
EXACT 
R3, RO 


R4, R2 
OTSSMOVE3_RS 
(SP)+, RO 


=(SP) 


Ree 
RO, R3, =(SP) 
R4, R 


R4, R 

RO 

10$ 
OTSSMOVES_R5 
R 8(SP) 
(SP), #65535 
30$ 


#0, (SP), 4¢ 
#65536, #-65 


(SP)+ 


+, RO 
#0, ($P), R1, RO, (R3) 
(SP)+, RI 


90: 56:3) AX/VMS Macro v04-00 Page 9 
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LIBRTL.SRCJOTSMOVE .MAR; 1 (6) 


Is srclen greater than 655357 
If so, can't do simple ae § 
Is dstlen greater than 6 ¥$5> 
If so, can’t do simple move. 
Simple case; do the move 


Move with fill 

Same length source and dest? 
Truncate - use dstlen 

If exact, use source length 
Get dest address 

Just move the characters 
Restore unmoved source bytes 


Fill, exact or truncate? | 
Return 


: We get here if we have to do some ig ps Save the information we need 
3; to do the fill, use OTSSMOVE3_R5S to do the 


data copy, then do the fiil. 


Save fill byte 
Length of fill 

Get destination address 

In case we're just filling 

Just fill? 

If so, skip the move 

Move <srclen> characters - R35 has next byt 
Save end~or -aayrce pointer 

More than 65 characters of fill? 

If not, just fill the rest 


(R3) ; Fill 65535 bytes 
208 ; Loop until <65536 bytes left 


; Pop Length and fill byte 
: FALL the rest . 


; Restore end-of-source pointer 
; Return 


; End of module OTSSMOVE 


OTSSMOVE - Move characters 
Symbol table 


papas R 1 
BIG R 1 
BIGSTRING R 1 
DEST = 
EXACT R 01 
FILL 2 
FORWARDS BR 01 
LENGTH = 
NEED FIL BR 1 
OTSSAOVE RG 1 
OTSSMOVES_R5S RG 1 
TSSMOVE RG 1 
OTSSMOVE5S_R5S RG 1 
SRCLEN = 
or ero + 
! Psect synopsis ! 
yoeweone eereaceaaas + 
PSECT name Allocation PSECT No. Attributes 
» es 8090000 ( §-} 9 ( 0.) NOPIC USR CON ABS”) LCL 
_OTSSCODE 000011 © arash OES Vee PIC USR CON REL LCL 
bene wr swecomm oe enee ones acean + 
; Performance indicators ! 
Phase Page fau'ts CPU Time Elapsed Time 
wether pn de s#t 0:90:00:98 60:00: 0.89 
ro : H e : : e 
Syab t Lait mt 6 2:0 81 09:00:08-99 
y 78 90:00:00.4? 0:00:07 “34 
Symbol table output 0: 8 0:00:00.01 
Psect synopsis output 0: s Bee 3 
Cross-reference output Bs :00.0 SBS 
Assembler run totals 30 :00:01.4 0:00:07.56 


Ihe working set Limit was 750 pages. 

5152 bytes (11 pages) of virtual memory were used to buffer the intermediate 
There were 10 pages of symbol table space allocated to hold 16 non-local and 
3° source Lines were read in Pass 1, producing 14 object records in Pass 2. 
pages of virtual memory were used to define 0 macros. 


ode. 
local symbols. 


+ + 
; Macro Library statistics H 


Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


SSEP=1986 99:78:57 


AX/VMS Macr 
LIBRTL.SRCJ 


NOSHR NOEXE NO 
SHR = EXE 


o v04-00 
OTSMOVE .MAR; 1 


RD NOWRT NOVEC BYTE 
RD NOWRT NOVEC 1ONG 


6 
VAR=I1 flacro Run Statistics "ve “haracters "SSEP=19B4 $9378: EMGNTE.SRESroROvECman:1 | 89° {2 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSMOVE/OBJ=OBJ$:OTSMOVE MSRC$:OTSMOVE/UPDATE=(ENH$:OTSMOVE) 


ITAL EQUIPMENT CORPORATION 
FIDENTIAL AND PROPRIETARY 
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